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BEGIN 
e REAL COMMONS 00010100 
mann ARS LE ILES/CANDE SOURCE PROGRAM, 21°72, 2% 2 BOD 
f COMMENTS * TITLE! B5500/H5700 MARK XIV SYSTEM RELEASE rn 00010210 a ae 
@” * FILE 108 SYMBOL/LFILES TAPE 10: SYMBOL2/FILEQ00 * 00010213 
; on aoa. THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION * O0010232 ae 
4 * AND IS NCT TC BE REPRODUCED» USED» UR DISCLOSED * 00010213 “so 
@ |: * EXCEPT InN ACCORDANCE WITH PRUGKAM LICENSE OR UPON * 00010214 
te o* WRITTEN AUTHURI ZATION OF JHE PATENT DIVISIUN OF ow 
e : * BURROUGHS CORPORATIONs DETROIT» MICHIGAN 48292 * 00010216 
* 00010217 
: on —t COPYRIGHT. 0G) A971. 2 1972 BURROUGHS CORPORATION  _« _op010sia 
@ rn) FILe™ pa 13 STRCELTS 
Meme one LOE OSK DISK SERIAL [202100] (2o10s300sSAVE 193 = 00 0460 
i. _ SAVE ARRAY ACO#60) +WORKCOS15] »NAMES([OL20]3 00010500 _ - 
@: ARRAY DAYSCO?12)eTYPETABLELO211)] 201 KL021022)3 ; 009010600 
So REAL CTR» DISKBOTTOMs, FIO» I» INCREMENT» Ke LITWORD» LL» MASK» 00010700 
6 MAXPTR» NAMEs NAMECCUNT» NI» PTR» RECS, SECNAMEs, SEGSs ~~ 90010800..—~” ai aaa 
@” SPECS» TABLESIZEs TNATEs TFILES» TYPE» RECS» TSEGS» 00010900 
BL ee I APEPIEL Os USER USERNAMEs LINKA 00011000 
18 BOOLEAN ALL» BRAAKs LITERAL» LUCKED» OBYECT» PRINTER» RESTART» 00011100. | 
@” SECURITYCHECKs, SQLEUSER» SOURKCEs JELETYPE» UNLOCKED,» PUBLIC3 00011200 
ei ABEL COMPAREs CYCLEs ENDFIDs ENDSORT* EXIT» FOQUNDe PRINTIT» 00011300 
be SKIP, SKIPITs» SORTT, SUMM; ~~ godii40c0—t—‘“‘“‘( i 
@ * INTEGER S3 00011500 
aa DEFINE MATCHOMATCH1sMATCH2)= © 00011600 
ia REAL CBOOLEANCMATCHI) EQV BOOLEANCMATCH2) )=REALCNUT FALSE) #3 No Ve OORT IOG), | | omnes a cae 
@ * DEFINE MOOULUS#13#s/0IRMODS1694+NUMOFTYPES=1123 00011800 
7| ees RICCI IOI IIOIIICIIIIINIIOISIICIIUISIIDIMUIIIUIIOISIIGISIISIIDIOISIICIIUIUIDIDITIIGIOITIIIII IDOI OE tok ¢) 
_ REAL STREAM PROCEDURE OCTCONVCDECV)s VALUE DECVs CREEL SE a 
e> BEGIN SI%SLOc DECVs DI:=LOc OCTCUNVS DSt=80CTS ENDS 00012100 
0 7 ER ORE TA Bee reer atesesnasnenatssesnnsveenseanesenese+00012200 
1 REAL STREAM PROCEDURE DECCONVCOCTV)s VALUE OCTVs 00012300, ~—CO—=~CS - 
@» BEGIN SI#s_Oc OCTVs OIts_LOC DECCONVs DSts8DECs ENDS 00012400 
eee 4a FEI IG CIUINCIIOIIUIIUIGIIUIIGIIUIUIUIIOIIIIUIOISIIOII IIIS I III DOI IOI ISO IGS oie int 100012500 
STREAM PROCEDURE BLANKCWORD)S I te ROG. a Oe ener eee es 
e. BEGIN DItswORDs DSs=LIT™ "3 ENDS 00012700 
a _ 1 BIO ICICI I IIIS GITIGUIGIIOIIIDIUIOIIIIUIDI I OIG IOI oid ici 00.0 12800 
7 ~ STREAM PROCEDURE BLANKS(CWORK)$ ae a eee ~ 06012900 ~~ "ees 
@ * BEGIN DIS*wORK$ OSt=8LIT" "fs SLSSwWORKS YStegwDS; END; 00013000 
9 Beene echt tn ee ee A ESE CES SAN ENN NNN Rete esse ee Che nee ea eelss 200015100 
~~ PROCEDURE TWXOUTCA®NeT)3 VALUE NoT? REAL ApNe la OO0t3I200: °° eee 
@ BEGIN COMMUNICATE C#11)3 BRAAKS=BUULEANCT)3 ENDS 00013300 
2 on III ICICI JOIUISUISOIUIIIOIIIJOICIISISID ISOS IOOI III IDOI OIG inridoiieteinn 00013 3400 | 
he STREAM PROCEDURE MOVEC(N?AsB)3 VALUE Nj 90013500 ee 
of] BEGIN SIt#As DIit2B3 OSssN WOSs ENDS © 00013600 
5 Soe. AOI UIIIUIIOUIIUIISIIIGIIISIOIJIUIISUIDIOISIIOIIIUIOIIDIUOISUIISGIUOIIODICI prop iniliioieieniees 100015700 _ 
PROCEDURE DISKWAITCICBIT»AREAsSIZEsUISKADDRESS)3 00013800 ata ai ee 
@ VALUE IOBIT»SIZEs DISK ADURESS$S REAL IUBITsSIZE*DISKADDRESSS ARRAY AREAL0]300013900 
—COMMUNICATE(*8)3 Pert ee 00014000. 
IEIEOIIR SESE EIOIEIIIOI ESE TESTIS EO SOS OI SO HHOHO One iinerinkinintkiti1 00016100 a a 
@ REAL STREAM PROCEDURE SETBIT(N)S VALUE N3 00014200 
_____BEGIN DIte_O¢c SETBITs SKIP UBS NCSKIP DB)3 DSt=SETS ENDS sss ss = 014300 poate sad of ashe eo, 
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BEGIN LOCAL NsSv¥3 7 00014700, ti (i‘;O;O*~*#W 
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Semciieits, tae oe ENDES.Y. oc A. ays: 2 Paarl (OK OL © es 1 01 0 ee 
ie Sv:sSI} SIs=Loc AR SI: zeST413 DTtssvs 00015300 
7| Nt=TALLYS TALLY#=413 000154C0 
Ties ti eo NET ESO NEO DG LMEN iiss a wseas . 00015500... .. 
x BEGIN 00015600 
: ; SIs=Sle43 IF SC NEQ " ™ THEN TALLY8=03 YUM OUTS 00015700 
ies theless be God! ee NOD Bn cats Miser Ming to Dare oe eaten, tiges ‘ OOOISBCG. 2. 2. 
: LITCOMPS=TALLYS 00015900 
iy END STREAM PROCEQURE LITCOMPS 00016600 
ne ee BIO IOI ITI III IIIS IOI UIIUIDIUIDIOISIGIICIIGIGIO OGOISIDIG III OOOIUIDIONIOOrininiioinn 00016100. 
th BOOLEAN STREAM PROCEDURE COMPAWDSWAPCASB)} 00016200 
‘ FRI I OI IIIIII III IIIS III IOI IO IOI IOI OO IOC tt 4600016300 
Vea ds PEO ENERO CAL Var lego. as ac Sele ion hideaie Nid ia. 28" Bete Daan eats Nok Lys OO LOO 
Y % ROUTINE COMPARES WOS "An “AND mye 00016500 
is ® IF "B® IS GREATER THAN "A, WOS "A" AND "A441" ARE 00016600 
ae ® EXCHANGED. WITH wOS “BY” AND "Bei", _. soa Gig iates Motta Macs 0 Sears SnSane ds ciete e OMGL OO clic Shc Galea g etlaasees 
M4 % THE WORD AT "A™ ¢ AND "B" ) IS A FILE NAME » “AND 00016800 
He % THE WORD AT "At1" ( AND "Hei™ ) 15 THE ADMRESS ASSOCIATED 00016900 
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" SIseas SItsSi+1s DItSRs DItSUl413 pee 
: IF 78C GTR DC THEN 00917200 
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; BEGIN 00018300 
INTEGER HRS»MINsTIMS 00018400 
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me BEGIN 00018600 
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i HRS t= TIM DIV 2160003 00019200 
ial MIN = CTIM DIV 3600) MOD 603 00019300 
Mee eile EMS OEP ARS GTR. 14 THEW PMN LSE AMM on ct ett ee ea, 00019400 
hy IF HRS GTR 12 THEN HRS %% HRS * 123 00919500 
aa IF HRS LSS 1 THEN HRS := 123 00019600 
Mo TEMECONV 33 STCHRSsMINeTIM)3 OO 00039700 2 
a END TIMECONVs 00019800 
9 FoR de III IG IOI II III II OGG eek io 00019900 
REAL PROCEDURE MAKEDATECDATE)2 VALUE DATES KEAL DATES 00020000 _ 
BUSES SSIS GIGI SISG OE ISISIGISISSI SSIS HISD GIO ilinokiioniinei eit # 00020100 
BEGIN 00020200 
atria wc ALS AOD NV i ci oh8 Sk 9 Sa i ena tytn Ne hacia Ua tinh nat et th a ate OW OO MOU), orn gern on Sk 
MM? sDECCONVCDATE)$ OD: sOCTCONVCMM.[30218))> 0Oove0400 
YYssOCTCONVCOMM.018212))3 00020500 
tt ee einer daa on @ 20. AE NPA ie ease oe ee ee Se ee ea 7 00020600 
IF YY¥el46!2) NEQ O THEN 00020700 
DD ?* DO + 13 00020800 
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DO MM?=MM+41 UNTIL OD LEQ DAYSLEMM] UR MMsta;s 000¢€1000 
é DOssDECCONV (DD=OAYSiMM71))3 009021100 
pe en MME EDECCONY CMM DS co MOVELZ00 _ oe hectia tel we ee 
1 MAKEDATE $=" 0/00/Q0"8MMi 1237611)8D0L 18? 362 12)8YYL 3648 96242)3 00021300 
@ END MAK&DATES 00021400 
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4 STREAM PROCKDURE PRIATINGC(WORK)3 000¢€1600 
@| BEGIN DIt=wORKs DSt=1OLIT"PRINTINGs.%3 ENDS 00021700 
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: STREAM PROCEDURE HEADINGCWORK)3 00921900 
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. OIlsswORKs OS: =39L IT" NAME TYPE RECS SEGS CREATED "5 00022200 
, DSt=41LIT"ACCESSEC W/R W/B SF LOCKD BY "3 00022300 
i Deke Vea -END. STREAM PROCEDURE HEADINGS oO eee yaaa: settee Malema eed 
13| COR AEH E HERE EH HEHE ORR U REALE OA aA H ERR ENE ee Eada ee HO0022500 
@ 4 STREAM PROCEDURE TRAILERCWORKsNF IL» NSEG»NREC)3 VALUE NF ILsNSEGsNREC; 00022600 
Ree eee WA ee eR ke Ok ee 00022700 _. Dts Sl Ih ate a Te st 
\ BEGIN LOCAL OV3 00022800 
@ i DrsswORK$ DSs=8LIT" "3 ST&swORK$ USts9OWNSS DLS=ZwURK$ 00022900 
Resta toon ESL Pd Os DSS EIE TES AN oe ey oa dae oy ce a etre nti ase DOU RS O00!.... 2 Cats ielbeegbestl te AAs ae a as Stine le 
ae DIt=D14103 HNStsBLIT*SEGMENTS"3 00023100 
e@ al OL? 2014103 OStaALIT*RECORDS "3 00923200 
ay, OT PsWwORKS STSsLOc NFILS Sete th aa a eae! tetattsvedin ac OOPS 3O0 o: cuc. , te Boi ee hed NS dha BE Sa re nt ee aa 
! 3(05% =8DEC; DVs=DI53 OI: sQI- “a5 “DSt27F ILLS OLlisbVvs “OIts DI+10)3_ 00023400 
@» END STREAM PROCEQOURE HEADINGS 00023500 
S 24 2 III OI ICICI IIIT III OUI III UII IO telecine 000235600 a He ee BM ae Kine hn Es et On ee at ee td Sent eh 
Sp STREAM PROCEOURE QUTFCRMAT 00023700 
x) . CWORKs FILNAM*FILTY Ps RECSs SEGS* COAT? AUAT*WPReW PB SAVFACSSECNAMs AFLG) 3 00023800 
§ u aes WAAL ESREARESS RARE SCARCE CELE EECA ELE ERAERERR TCT TTT. atekeeeeeeeeOO023900 sss 
a VALUE FILNAMSFILTYPsRECS»SEGSsCDAT» ADAT» WPHeWPHs SAVE ACs SECNAMS AFLGS 00024000 
20 BEGIN LOCAL NV3 00024100 
woe DTIEWORKS STPSLOC FILNAMS pr eceremmoncetrainere: © 010° 10 1 OU anna ee ae Ree Oe 
' 2CST8sSI+13 OSte7CHRs OStsLiT" ")3 &% FILE NAME ANDO TYPE 00024300 
eo” 2¢DSt=5DEC$ OVesDy3 Vys=Dy=53 DS: Sar Lt: ae % RECS AND SEGS 00024400 
Lette SPSL TT MS OSteA CHAS % COEATION NATE. eee ee OU BAB OO. cs calico paced 
is OSt=3LIT" "3 AFLGCOLssbl“33 GOs=3LIT™ « “")3 00924600 
@» DSt=ACHR} % ACCESSED DATE 00024700 
On SE OSESSDECS DVGSOLS Vitshlo53 OSiS4F ILL Olisbvog goo 
ea SLresST+is OSte2ciy™ "3 OSS=7CHRS OSIEOLIT" "5 & SECURITY NAME 000244900 
eo» END STREAM PROCEDURE OUTFORMATS 00025000 
Wea ote ete LAAT LALA REAR A ALTE A RASA SEALE TTA LEAL EASA CE ERTL ET KA RAAEARREREENE *4%%*#%00025100 _ Raia ies onde anne Ene 
; STREAM PROCEDURE TYPEFILECFIIL»TYPE)S VALUE TYPES 00025200 
eo: SEUSS SEO BK OIE IEE IIE O EHO Or Ur init tint ta itiisit##00025300 
Be BEGIN LOCAL SV a = Fs Bice, hie Peon ee eee eae eat © 61.0 7h 2 6 NNER es et On Eee Se ee Ce 
i SIsSFIIL# 3¢SI#aSr7a)s BIssLOC FIILs DSteWDSs 00025500 
@ SYteFITILS 14¢STtaS74+8)s OL*aLOc FLILS OStswoss 00025600 
ie —--—_DLISF LIL ACDOTta0l+6)s Olssnieos es zoo 
he! ST2=LOC TYPES SIi=SI+73 DS&=ChR3 00025800 
eo END STREAM PROCEDURE TYPEFILES 00025900 
ee FOU IIGIUIIIIIUIIUIUIIUIUIGUIIISIIIIGIIOIIGUITIDOIOIIIOIOI UCI OG IOI Gin iGilininieticiinien 00026000 _ ee ae ee ee re 
9 BUG IOINIO III III II IGIIOISISIIDIOUOIIO ISIS ini iii nniieninnt 00026100 
@ TDATE t= OCTCONVCTIME(O)); 00026200 
— FULL DAYSC#)° WITH 6934050 991012191526 18222439244 9274 9305033593663 (00026300 baa Rear ed 
FILL TYPETABLEL*] WITH "UNKNOWNS "BASIC "sMALGOL © s"cOBOL “s 00026400 
@ "FORTRAN"s"TSPOL "s"yxALGOL "s"SEQ "S"DATA "ses "LOCK ", 00026500 
—._ MINFO  "e"COROL 6B"; | ae ee ete ae 
ACO) ta 03 DISKWAIT(1, »A»30sCOMMON)S | ‘7 GET “ESP. RECORD 00026700 
@ USER t= AC2)3 X USER COBE 00026800 
PECS_§@ A333 % SELECTION INSTRUCTIONS = 00026900 
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USERNAME t= AC413 %& USER NAME ASSOCIATED WITH FILES 00027000 
@ LITWORD t= ACS)3 % “LITERAL” VALUE 00027100 
Spann LE CNAMECOUNTISAL7I) GEO 0 THEN ® FILE NAMES GIVEN 2 OO0e7200 
(* BEGIN 00027300 
@: MOVE CNAMECOUNT+1A(C21]»NAMES(O)); 00027400 
kee — FOR 1480 STEP A UNTIL NAMECOUNT DO 027500, 
‘ NAMESCNAMECOUNT#+I1 41] t= NAMES(IJ.l6136]3 % ORVECT FILE NAMES 00027600 
@': NAMECOUNT t= NAMECCUNT x 2 + 23 00027700 
VOUS cote os abe watt SEND Bd eaetaticd pica pee ce hacgns Saal ae ie Aha A tn cl he acces, aN I COO scthopven sa fea alts, ct = 
' ALL t= MATCHCSPECS»0)$ % NO RESTRICTIONS 00027900 _-- 
@: SECURITYCHECK $= NOTCMATCHCUSER» USERNAME) )$ % NOT PRIMARY USER 0002800 SECURITY CHECK := FALSE, B de a 
*___.._._bcETTERAL $2 NOT ( MATCHCLITWORD20) 24 % EMPTY LITERAL WORD oodestOO®N i (sstsi‘“‘i‘i RC Lech i 
0 IF MATCHCALO],"TELETYP") THEN TELETYPE $= TRUE ELSE 00028200 
eo! IF MATCHCAL6]s"PRINTER") THEN PRINTER t= TRUE ELSE 00028300 
Mu ELL OSK WITH ALOlsUSERE ¥ OUTPUT TU. DISK FILE fed atthe OOM BA ROO or c..2. gape oo ne Sa gen: a 
"9 BLANKS(WORK)3 WORKLO] t= MAKEDATE(TUATE)3 00028500 
@'. WORKE1] $= USERNAMES BLANKCWORKL1))3 | 00028600 
| —____..- WORKE 2) $8200 Us BLANK CWORKEC2))3 wORK( 3). 25. RA MEC ONY 2. oo ese kek DOOR BI O0 ooo ee 
yy IF TELETYPE THEN TWXCUTCWORKCOJs 3201) 00Uc8B00 
er ELSE IF PRINTER THEN WRITE CLP ASHES» 10>WORKL*)) : 00028900 
PO el SE WRITER DSK L00WORKO ADI ggazgnog lt” 
Hs % SEARCH THE BYPASS DIRECTURY 00029100 
@ DISKWAITC1sAL4#153000)3 % GET SEGMENT ZERO 00029200 
7 DI SKBOTTOM. fm ALA). = 23. i ectctecaimeen netted sie Dis heind Re attens) CeS te onea ete reoOUE ORDO. a: S.ichs: 
bal RESTART 3= FALSE3 00029400 
@ FOR FID t= MODULUS “1 STEP =1 UNTIL 0 pu 00029500 
@ r 
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aa S$ t= DISKBOTTOM = 00029700 
2x COFIDeC1LI23)+F1DeL24824)) MOL MODULUS x mUDULUS + 00029800 
~~ (USERNAME, CI2237eUSERNAME,C24i2di) MOD MODULUS) s 0 ggaggeno 
DO BEGIN 00030000 
DT Sku arcs (*],602S)3 & GET DIRECTORY RECORD 00030100 
FURL ts 0 STEP 3 UNTIL 57 nu % SEARCH DIRECTORY SEGMENT = =—=ss ss 0030200... i 
IF SNaNE Make es NEQ "7" THEN & VALID ENTRY 00030300 
IF MATCHCACI+1], USERNAME) THEN % ENTRY FORA THIS USER 00030400 
_ BEGIN. geese ae ig eR ae ne ecient, SO OAS DVO os cov cnt acaceortuiecen Es 
IF NaMee C6212) “LEQ 9 THEN al TU SKIP; * NOT CANDE FILE 00030600 
. IF CKtsNAME.[636]) LEQ & AND K GEQ 1 TREN GO SKIPS & WK FIL 00030700 
8 TE LITERAL THEN IF NOT LITCOMPCLITWORDsNaME) THEN GO SKIPS QoO3cHOO. ss ss 
IF NAMECOUNT GEQ O THEN &% FILE NAMES SPECIFIED 00030900 
oe” BEGIN 00031000 
FOR Kiso STEP 1 UNTIL NAMECOUNT DO. Sr Sint t gee Sate hee co asaya ee sina Relate es Be cra 
IF MATCHCNAME*NAMESLK)) THEN GO TO FUUNDS 009031200 
@ | | GO TO SKIPS % NOT MATCHEU 00031300 
Se el eee END TP NAMES SPEC LE UE oe 5 oer ee Gh en ep OOOTTAOO ee ee 
; FOUND!  DIRENI) *= NAMES 00031500 
@ DIRCNI41) a pocorn ane % HEADER aDDRESS 00031600 
cee vee oa 8 NT Oe esata 5 AD SM Ana fa ce lh i aa eee oes ee OOS ROG: 2x4 ooo oa Sete ait Sas oe ee 
SKIP: END3 & I cock: 00031800 
eo IF NI GTR 960 THEN % LIST FILES IN 2 SECTIUNS 00931900 
nai Bin gee SHEEN oe een erd Sathana ae on! si OOO S200 ae ie 
: RESTART 85. ‘TRUES “LINKS 2AL2d— GO TO SORTT; 00032400 
@ ENDS 00032200 
NO I la at gt eS od ee yee i a ty OOO SEI OO ae Po ete le wane, 
END UNTIL ¢€ S8sAlzZ],018215) ) = 03 00032400 


ENDS % FID LOOP 00032500 
__ SORTTS pee Pot oe _ Meats SS oe a te oh a OU OOO =. 
TABLESIZE t= NI/2;3 os ‘ 000352700 


INCREMENT %3 (TABLESIZE+1) DIV 25 ; 00032800 
MAXPTR $= TABLESIZE = INCREMENTS 00032900 


"OBUC 2 " & TYPEL302626]3 


NO EIS EG 


—.....SECNAME %2 IF L@CKED THEN ALS] ,0O%42] ELSE 00038400 Sian eee ett le 
IF UNLOCKED THEN "“UNLOCKD™ ELSE 00036500 
IF PUBLIC THEN "PUBLIC ” ELSE " "5 00038510 
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00038200 


00038600 


@ 
CTK t= PTR t= 03 00033006 
@. GO TO CUMPARE} 00033100 
ene os 2 00933200 | 
(i IF (CTRE=CTR+1) GTR MAXPTR THEN % HALVE THE INCREMENT. 06033300 
@ | BEGIN 00033400 
I CINCREMENT. $= INCREMENT DIV 2) = 0 THEN GO TO ENDSORTS  .—s—s—s—«3's«d0003. 3500... eI ee cae Oe aac 
‘| MAXPTR t= TABLESIZE = INCREMENTS 00033600 
@ | CTR #3 03 00033700 
| ne Renee Ae END? bapa ate ct payee att tet ae aM ARN! Bie fi pe og tN on tea eee rere yan 
7 PTR ts CTR3- 00033900 
@: COMPARE! 00034000 
“I F COMPANDSWAPCOIREIPIRX21,DIRCCPIR+INCREMENT)X2)) THEN. 0034y00. 
ney IF (PTRt=PTR#INCREMENT) GEQ@ O THEN GO TO COMPARES 00034200 
@: GO TO CYCLES 00034300 
fase conte BND SORT So NA tN OR 2 cote cy ect te a at nh i he te ee OU IU AOO oie eu to 
. IF NOT TELETYPE THEN 00034500 
e« BEGIN PRINTINGCWORK)S TWXOUTCWORKLOJ»1001)3 ENDS 00034600 
". . HEADINGCWORK)S.. he Sian Re Soe thas Sed ie OAD OO eat, Oi nuneeninn YY act Se te 
a IF TELETYPE THEN TWXCUTGCWURKLO]*/7291) ELse 00034806 
@” IF PRINTER THEN WRITECLPA Bette 9ewORKL*)]) ELSE 00034900 «<< - 
WRITE CDOSKeLO*WORKE#)])3 0 7 eset eae ? = . 000353000... _. pees 
a FOR tt=0 STEP 2 UNTIL NI DU 00035100 
@ ‘| BEGIN 00035200 
Pee Paas  DISKWAITC1sAC*1230,DIRE1¢1925..%. GET FILE HEADER | eee OM SS SOG. 05. ancisc Cine Oo ety a On m 
= UNLOCKED %= MATCHCAL5)] 512) AND MaTCH(AL6J212)3 06035400 
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